perm filename TEXPRS.DIF[TEX,DEK] blob
sn#500224 filedate 1980-03-28 generic text, type T, neo UTF8
1) TEXPRS.SAI[TEX,DEK] and 2) TEXPRS.SAV[TEX,DEK] 3-28-80 21:48 pages 2,2
**** File 1) TEXPRS.SAI[TEX,DEK]/2P/20L
1) IFPARC external boolean color;
1) external integer curbrightness,curhue,cursaturation;
1) ENDPARC
1) comment initialization: initout,declareofil;
**** File 2) TEXPRS.SAV[TEX,DEK]/2P/20L
2) IFPARC external boolean color,curbrightness,curhue,cursaturation; ENDPARC
2) comment initialization: initout,declareofil;
***************
**** File 1) TEXPRS.SAI[TEX,DEK]/3P/22L
1) IFPARC
1) comment Warning: these definitions shared among TEXPRS and TEXHDR!!;
1) define brightness=0, hue=1, saturation=2;
1) define colornodesize=2 # number of words to allocate for a color node;
1) define colorwhatsit=1 # type code for color whatsits;
1) define colorcmd(p)=⊂((mem[p+1] lsh -8) land '3)⊃;
1) define colorval(p)=⊂(mem[p+1] land '377)⊃;
1) ENDPARC
1) comment Procedures for 8-bit-byte file I/O;
**** File 2) TEXPRS.SAV[TEX,DEK]/3P/22L
2) comment Procedures for 8-bit-byte file I/O;
***************